home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / misc / QMaster.lha / QMaster / QMInstall < prev    next >
Text File  |  1999-02-05  |  3KB  |  171 lines
  1. ; ****************************************************************************
  2. ; *                                         *
  3. ; *        QMaster install script v 1.0 by Kenneth C. Nilsen         *
  4. ; *                                         *
  5. ; ****************************************************************************
  6.  
  7. (set
  8.     #wtext    (cat    "\nWELCOME TO QMASTER INSTALLATION!\n\n\n"
  9.             "QMaster is created by Kenneth Chr. Nilsen\n"
  10.             "Copyright © 1998,1999 by K. Nilsen/Digital Surface\n\n\n"
  11.             "This software is FREEWARE\n\n\n"
  12.             "This installer script will set the proper environmental variables for QMASTER")
  13.  
  14.     #endtext (cat    "\nINSTALLATION DONE!\n\n"
  15.             "Hope you will find QMaster useful !\n\n"
  16.             "If you have any problems you can write an email\n"
  17.             "to author - kenny@bgnett.no or you can join\n"
  18.             "the Studio 16 mailinglist:\n\n"
  19.             "Send email to majordomo@thule.no and type in body:\n"
  20.             "subscribe studio16 <your email>")
  21.  
  22.     #mycpu    (database "cpu")
  23. )
  24.  
  25. ;-----------------------------------------------------------------------------
  26.  
  27. (if (= #mycpu "68000") (exit "\n\nSorry, but QMaster require atleast a 68020 or better..." (quiet)))
  28. (if (= #mycpu "68010") (exit "\n\nSorry, but QMaster require atleast a 68020 or better..." (quiet)))
  29. (message #wtext)
  30. (welcome)
  31.  
  32. ;-----------------------------------------------------------------------------
  33.  
  34. (complete 0)
  35.  
  36.     (set #dir
  37.     (askdir
  38.         (prompt "Please select where you want to install QMASTER.\nThere will NOT be created any directory for it!")
  39.         (help @askdir-help)
  40.         (default "Studio16_3:")
  41.         )
  42.     )
  43.  
  44. ;copy main executable
  45.  
  46. (complete 10)
  47.  
  48.     (copyfiles
  49.         (prompt "Copying QMASTER executable...")
  50.         (source "QMaster")
  51.         (dest #dir)
  52.         (infos)
  53.     )
  54.  
  55. ;set global path !!
  56.  
  57.     (run "c:setenv >nil: QMASTER "#dir)
  58.     (run "c:copy >nil: env:QMASTER Envarc:")
  59.  
  60.  
  61. ;ask where to copy LoadQM...
  62.  
  63. (complete 15)
  64.  
  65.     (set #cdir
  66.         (askdir
  67.             (prompt "Where do you want to install the LoadQM executable ?")
  68.             (help "LoadQM is used to start QMaster from Arexx scripts.")
  69.             (default "C:")
  70.         )
  71.     )
  72.  
  73.     (copyfiles
  74.         (prompt "Copying LoadQM...")
  75.         (source "C/LoadQM")
  76.         (dest #cdir )
  77.     )
  78.  
  79.  
  80. (if (askbool
  81.     (prompt "\n\n\nDo you want to install\narexx scripts, demo cuelists and shortcomands ?")
  82.     (help "These files demostrates how you can use QMaster")
  83.     (default 1)
  84. )
  85. ;then
  86. (
  87.  
  88. ;ask where to copy arexx scripts
  89.  
  90.     (complete 20)
  91.  
  92.     (set #adir
  93.         (askdir
  94.             (prompt "Where do you want to install the arexx scripts ?")
  95.             (help @askdir-help)
  96.             (default "Sys:REXX/")
  97.         )
  98.     )
  99.  
  100.     (copyfiles
  101.         (prompt "Copying arexx scripts...")
  102.         (source "Rexx/")
  103.         (all)
  104.         (dest #adir )
  105.         (infos)
  106.     )
  107.  
  108. ;ask where to copy docs...
  109.  
  110.     (complete 50)
  111.  
  112.     (set #ddir
  113.         (askdir
  114.             (prompt "Where do you want to install the guide file ?")
  115.             (help @askdir-help)
  116.             (default "HELP:")
  117.         )
  118.     )
  119.  
  120.     (copyfiles
  121.         (prompt "Copying docs...")
  122.         (all)
  123.         (source "Docs/")
  124.         (dest #ddir)
  125.         (infos)
  126.     )
  127.  
  128. ;ask where to copy demo cuelists...
  129.  
  130.     (complete 70)
  131.  
  132.     (set #udir
  133.         (askdir
  134.             (prompt "Where do you want to install the demo Cuelist files ?")
  135.             (help @askdir-help)
  136.             (default "Studio16_3:Cuelists/")
  137.         )
  138.     )
  139.  
  140.     (copyfiles
  141.         (prompt "Copying demo cues...")
  142.         (all)
  143.         (source "Cuelists/")
  144.         (dest #udir )
  145.     )
  146.  
  147. ;ask where to copy scripts...
  148.  
  149.     (complete 80)
  150.  
  151.     (set #sdir
  152.         (askdir
  153.             (prompt "Where do you want to install the script comands ?")
  154.             (help @askdir-help)
  155.             (default "s:")
  156.         )
  157.     )
  158.  
  159.     (copyfiles
  160.         (prompt "Copying QM comands...")
  161.         (all)
  162.         (source "s/")
  163.         (dest #sdir)
  164.         )
  165.     )
  166. )
  167.  
  168. (complete 100)
  169.  
  170. (exit #endtext (quiet))
  171.